home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998…eptember: Technology Seed / September 98 ADC Seed CD.toast / LaserWriter 8.6b5 Seed / LaserWriter 8.6b5 / PrintingLib / PrintingLib.rsrc / PS_-8122 < prev    next >
Encoding:
Text File  |  1998-08-12  |  1.9 KB  |  147 lines
  1. %%BeginFile: lw8_feature-1.0
  2. %%Copyright: Copyright 1990-1998 Adobe Systems Incorporated and Apple Computer Incorporated. All Rights Reserved.
  3. /bd{bind def}bind def
  4. /ld{load def}bd
  5. /xs{exch store}bd
  6. /Z{0 def}bd
  7. /T true def
  8. /F false def
  9. /level2
  10. /languagelevel where
  11. {
  12. pop languagelevel 2 ge
  13. }{
  14. F
  15. }ifelse
  16. def
  17. /odictstk Z
  18. /oopstk Z
  19. /fcl
  20. {
  21. count oopstk sub dup 0 gt
  22. {
  23. {pop}repeat
  24. }{
  25. pop
  26. }ifelse
  27. countdictstack odictstk sub dup 0 gt
  28. {
  29. {end}repeat
  30. }{
  31. pop
  32. }ifelse
  33. }bd
  34. /sfcl2
  35. {
  36. /odictstk countdictstack store
  37. count/oopstk xs
  38. }bd
  39. /efcl2
  40. {
  41. stopped{$error/newerror F put}if
  42. fcl
  43. }bd
  44. /noload Z
  45. /startnoload
  46. {
  47. {/noload save store}if
  48. }bd
  49. /endnoload
  50. {
  51. {noload restore}if
  52. }bd
  53. level2 startnoload
  54. /ststpgdev{}def
  55. /dopgdev{}def
  56. /stpgdev{}def
  57. /buf Z
  58. /didstop T def
  59. /sfcl
  60. {
  61. /didstop T store
  62. /odictstk countdictstack store
  63. count/oopstk xs
  64. currentfile cvx stopped
  65. {
  66. $error/newerror F put
  67. didstop
  68. {
  69. save/didstop xs
  70. /buf vmstatus exch sub exch pop dup 0 lt{pop 0}if
  71. dup 64000 gt{pop 64000}if string store
  72. {
  73. currentfile buf readline
  74. {
  75. (}efcl)eq{exit}if
  76. }{
  77. /UnexpectedEOF errordict/rangecheck get exec
  78. }ifelse
  79. }loop
  80. didstop restore
  81. }if
  82. }if
  83. fcl
  84. }bd
  85. /efcl
  86. {
  87. /didstop F store
  88. exec
  89. stop
  90. }bd
  91. level2 endnoload level2 not startnoload
  92. /setpagedevice where{pop/realstpgdev/setpagedevice ld}if
  93. /SC_topddict Z
  94. /SC_spdict Z
  95. /$spusrdict F def
  96. /dopgdev
  97. {
  98. userdict/setpagedevice undef
  99. $spusrdict
  100. {
  101. userdict/setpagedevice/realstpgdev load put
  102. /$spusrdict F store
  103. }if
  104. SC_topddict realstpgdev
  105. }bd
  106. /stpgdev
  107. {
  108. SC_topddict dup 3 -1 roll
  109. {
  110. SC_spdict 2 index known
  111. {
  112. SC_spdict 2 index get
  113. dup 3 -1 roll
  114. {
  115. put dup
  116. }forall
  117. pop put dup
  118. }{
  119. put dup
  120. }ifelse
  121. }forall
  122. pop pop
  123. }bd
  124. /ststpgdev
  125. {
  126. /setpagedevice where
  127. {
  128. userdict eq
  129. {
  130. /$spusrdict T store
  131. }if
  132. }if
  133. userdict/setpagedevice/stpgdev load put
  134. /SC_topddict 0 dict store
  135. /SC_spdict 3 dict begin
  136. /InputAttributes 0 dict def
  137. /Policies 0 dict def
  138. /OutputAttributes 0 dict def
  139. currentdict
  140. end
  141. store
  142. }def
  143. /sfcl/sfcl2 ld
  144. /efcl/efcl2 ld
  145. level2 not endnoload
  146. %%EndFile
  147.